extern int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, integer *incx);
